home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / breo852.zip / BRE.CFG < prev    next >
Text File  |  1992-08-09  |  6KB  |  164 lines

  1. {
  2.   begin "BRE Installation"
  3.   ------------------------
  4.   (set game "BRE")
  5.   (set version "0.0850")
  6.   (set 4-dos (4-dos?))
  7.   (set ResourceFile "RESOURCE.DAT")
  8.  
  9.   (display game " " version " setup:\n\n")
  10.  
  11.   (display "The " game " directory is `" (fix-path (get-cwd)) "'.\n\n")
  12.  
  13.   (set BBSDirectory (read-string "Which directory is your BBS in?\n> "))
  14.   [ if (not BBSDirectory)
  15.       (set BBSDirectory ".")
  16.   ]
  17.   (set BBSDirectory (fix-path BBSDirectory))
  18.  
  19.   (write-setup-sr)
  20.  
  21.   (set BatchFile (concat BBSDirectory game ".BAT"))
  22.   [ if (not (ask "Write to " BatchFile "?  [Y/N] "))
  23.       (set BatchFile (read-string "Enter the full pathname for your batch file:\n> "))
  24.   ]
  25.  
  26.   "Ask about special effects"
  27.   (set SpecialEffects (ask "Do you want Special Effects? [Y/N] "))
  28.   [ if (not (error? SpecialEffects))
  29.     (if SpecialEffects (set SpecialEffects "TRUE"))
  30.     (if (not SpecialEffects) (set SpecialEffects "FALSE"))
  31.     (resource-edit ResourceFile "SpecialEffects" SpecialEffects)
  32.   ]
  33.  
  34.   (set LockedBaud (read-string "If you have locked baud rates, please enter the baud rate:\n> "))
  35.   (if LockedBaud (resource-edit "RESOURCE.DAT" "LockedBaud" LockedBaud))
  36.   (if (not LockedBaud) (resource-edit "RESOURCE.DAT" "LockedBaud" "none"))
  37.  
  38.   (set Scores? (ask "Do you want to have score files? [Y/N] "))
  39.   [ if (not (error? Scores?))
  40.     [ if (not Scores?)
  41.       (resource-edit ResourceFile "Scores" "NO")
  42.     ]
  43.     [ if Scores?
  44.       (resource-edit ResourceFile "Scores" "YES")
  45.       (set L-ansi-scores
  46.         (read-string "If you want an ANSI score file, enter the full pathname:\n> "))
  47.       (resource-edit ResourceFile "AnsiScores" L-ansi-scores)
  48.       (set L-text-scores
  49.         (read-string "If you want a TEXT score file, enter the full pathname:\n> "))
  50.       (resource-edit ResourceFile "AsciiScores" L-text-scores)
  51.     ]
  52.   ]
  53.  
  54.   (set News? (ask "Do you want to store the daily news files? [Y/N] "))
  55.   [ if (not (error? News))
  56.     [ if News?
  57.       (set L-ansi-news
  58.         (read-string "If you want an ANSI Today's news file, enter the full pathname:\n> "))
  59.       (resource-edit ResourceFile "TodayNewsAnsi" L-ansi-news)
  60.       (set L-text-news
  61.         (read-string "If you want a TEXT Today's news file, enter the full pathname:\n> "))
  62.       (resource-edit ResourceFile "TodayNewsAscii" L-text-news)
  63.       (set L-ansi-ynews
  64.         (read-string "If you want an ANSI Yesterday's news file, enter the full pathname:\n> "))
  65.       (resource-edit ResourceFile "YesterdayNewsAnsi" L-ansi-ynews)
  66.       (set L-text-ynews
  67.         (read-string "If you want a TEXT Yesterday's news file, enter the full pathname:\n> "))
  68.       (resource-edit ResourceFile "YesterdayNewsAscii" L-text-ynews)
  69.     ]
  70.   ]
  71.   
  72.   "------------------------------------------------------------------------"
  73.   [ if (not BatchFile)
  74.     (display "\n\nNot creating a batch file.\n")
  75.   ]
  76.  
  77.   [ if BatchFile
  78.     (display "\n\nWriting to " BatchFile "\n")
  79.  
  80.     "Write a batch file"
  81.     (rewrite BatchFile)
  82.  
  83.     (write "@ECHO OFF\n")
  84.     [ if 4-dos
  85.         (write "REM 4-DOS version\n")
  86.         (write "PUSHD " (fix-path (get-cwd)) "\n")
  87.     ]
  88.     (if (not 4-dos) (write (cd-cmd (fix-path (get-cwd)))))
  89.  
  90.     (set Setup (setup-type))
  91.     [ if (= Setup "Searchlight")
  92.         " %1 is the username "
  93.         " %2 is ANSI:  `C' means yes"
  94.         " %3 is Time left"
  95.         " %4 is Baud rate"
  96.         " %5 is COM port"
  97.         (write "ECHO %1  >DOORFILE.SR\n"
  98.                "IF [%2]==[C] ECHO 1 >>DOORFILE.SR\n"
  99.                "IF NOT [%2]==[C] ECHO 0 >>DOORFILE.SR\n"
  100.                "ECHO -1 >>DOORFILE.SR\n"
  101.                "ECHO 25 >>DOORFILE.SR\n")
  102.         [ if LockedBaud
  103.           (write "REM For non-locked, use ECHO %4 >>DOORFILE.SR\n"
  104.                  "ECHO " LockedBaud " >>DOORFILE.SR\n")
  105.         ]
  106.         [ if (not LockedBaud)
  107.           (write "ECHO %4 >>DOORFILE.SR\n")
  108.         ]
  109.         (write "ECHO %5 >>DOORFILE.SR\n")
  110.         (write "ECHO %3 >>DOORFILE.SR\n")
  111.     ]
  112.  
  113.     [ if (= Setup "PC-Board NEW")
  114.         (display "PC-Board 14.x support has not yet been added to SRDOOR.\n")
  115.         (set PCB-2-SR (ask "Do you have PCB-2-SR? [Y/N] "))
  116.         [ if PCB-2-SR
  117.           (write "PCB2SR")
  118.           (display "Please put PCB2SR.EXE in the " game " directory, or modify "
  119.                    BatchFile to run PCB-2-SR from the right directory.\n")
  120.         ]
  121.         [ if (not PCB-2-SR)
  122.           (write "REM PC-Board support is not working yet.")
  123.           (display "PC-Board 14.x support has not been added to SRDOOR.  There "
  124.                    "is a program called PCB-2-SR that converts PC-Board files "
  125.                    "to the format that " game " requires.  You might want to get "
  126.                    "PCB-2-SR or a door converter that converts to a format used "
  127.                    "by another BBS.  (You will have to run the installation "
  128.                    "again.)\n")
  129.         ]
  130.     ]
  131.  
  132.     [ if (and (<> Setup "PC-Board NEW") (<> Setup "Searchlight"))
  133.         (write "SRDOOR")
  134.         [ if (= Setup "GT")
  135.             (set ComPort (read-string "What COM port do you run on?  [1-8]\n> "))
  136.             (write " GT " ComPort)
  137.         ]
  138.         [ if (= Setup "PC-Board OLD")
  139.             (set ComPort (read-string "What COM port do you run on?  [1-8]\n> "))
  140.             (write " PCBOARD2 " ComPort)
  141.         ]
  142.         (write "\n")
  143.     ]
  144.  
  145.     (write game "\n")
  146.  
  147.     (if 4-dos (write "POPD\n"))
  148.     (if (not 4-dos) (write (cd-cmd BBSDirectory)))
  149.  
  150.     (write "EXIT\n")
  151.   ]
  152.  
  153.   (display "\nSee OPTIONS.DOC for other parameters.\n")
  154.   (display "\nSee RESOURCE.DOC for customization information.\n")
  155.   (display "See IPSETUP.DOC for information on inter-BBS setup.\n")
  156.   (display "See BRANSI.DOC for information on customizing BRE with ANSI files.\n")
  157.   (display "Note: *.SAM files are not used by BRE; they are only samples.\n")
  158.  
  159.   (pause "\nPress any key to exit... ")
  160.   ----------------------
  161.   end "BRE Installation"
  162. }
  163.  
  164.